home *** CD-ROM | disk | FTP | other *** search
Wrap
PtInPoly(X, Y : REAL; H : HANDLE) : BOOLEAN; Returns TRUE if the point (X, Y) is inside the polygon connected to H; otherwise it returns FALSE. Distance(X1, Y1, X2, Y2 : REAL) : REAL; Returns the distance between two coordinate locations. PtInRect(X, Y, X1, Y1, X2, Y2 : REAL) : BOOLEAN; Returns TRUE if the coordinate X, Y is located within the rectangular boundary specified by X1, Y1 and X2, Y2; otherwise it returns FALSE. UnionRect(X1, Y1, X2, Y2, X3, Y3, X4, Y4 : REAL; VAR X5, Y5, X6, Y6 : REAL); Given two rectangular boundaries, specified by X1, Y1, X2, Y2 and X3, Y3, X4, Y4, returns a new boundary which encloses both rectangles in X5, Y5, X6, Y6. EqualRect(X1, Y1, X2, Y2, X3, Y3, X4, Y4 : REAL) : BOOLEAN; Returns TRUE if the two rectangular boundaries X1, Y1, X2, Y2 and X3, Y3, X4, Y4 are equal, otherwise it returns FALSE. EqualPt(X1, Y1, X2, Y2 : REAL) : BOOLEAN; Returns TRUE if X1,Y1 and X2,Y2 are equal, otherwise it returns FALSE.